home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / COD.ZIP / COD-RP10.PPE (.txt) < prev    next >
Encoding:
PCBoard Programming Language Executable  |  1996-06-19  |  10.8 KB  |  658 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     Integer  INTEGER001
  20.     Integer  INTEGER002
  21.     Integer  INTEGER003
  22.     Integer  INTEGER004
  23.     Integer  INTEGER005
  24.     Integer  INTEGER006
  25.     Integer  INTEGER007
  26.     Integer  INTEGER008
  27.     Integer  INTEGER014
  28.     Integer  INTEGER015
  29.     Integer  INTEGER016
  30.     String   TSTRING001(1)
  31.     String   STRING002
  32.     String   STRING003
  33.     String   TSTRING004(16,3)
  34.     String   STRING005
  35.     String   TSTRING006(13)
  36.     String   TSTRING007(21)
  37.     String   TSTRING008(17)
  38.     String   STRING009
  39.     String   STRING010
  40.     String   STRING011
  41.     String   STRING012
  42.     String   TSTRING013(11)
  43.     String   TSTRING014(1)
  44.     String   STRING020
  45.     String   STRING021
  46.     String   STRING022
  47.     String   STRING023
  48.     Declare  Function FUNCTION001(String STRING018, Integer INTEGER011, Integer INTEGER012, Integer INTEGER013, String STRING019) String
  49.     Declare  Procedure PROC001(String STRING024)
  50.     Declare  Procedure PROC002()
  51.     Declare  Procedure PROC003()
  52.     Declare  Procedure PROC004()
  53.     Declare  Procedure PROC005()
  54.     Declare  Procedure PROC006()
  55.     Declare  Procedure PROC007()
  56.     Declare  Procedure PROC008()
  57.     Declare  Procedure PROC009(Integer INTEGER010)
  58.     Declare  Procedure PROC010(String STRING017)
  59.     Declare  Procedure PROC011(String STRING016)
  60.     Declare  Procedure PROC012(Integer INTEGER009, Boolean BOOLEAN001)
  61.     Declare  Procedure PROC013(String STRING015)
  62.  
  63. ;------------------------------------------------------------------------------
  64.  
  65.     STRING003 = "--[PSYCH0's Rave Pager 1.0]--[COD96]--"
  66.     STRING003 = "                                      "
  67.     STRING003 = "  Please give us creditz if you use/  "
  68.     STRING003 = "  learn stuff from our ppe's.    pS   "
  69.     STRING003 = "                                      "
  70.     STRING003 = "--[the triloxy  coding sub-division]--"
  71.     STRING003 = "--------------------- ░ - ░ ----------"
  72.     STRING003 = "            ▄▄█▓▄ ░  ▄▓█▄▄▒           "
  73.     STRING003 = "          ▄██████▄▓▄▄▀████▓▄          "
  74.     STRING003 = "      cd!▓▀▓ ▀█▓█ ▀███▄▀▓  ▀▓         "
  75.     STRING003 = "------- ▓ -- ▓ ▀ --▐████ --- █ -------"
  76.     STRING003 = "░░░░░░░ █ ░░ ▀ ▄ ░ ▄██▓█ ░░░ ▓ ░░░░░░░"
  77.     STRING003 = "-------- █▄--▄██▓ █████▀▄--▄█ --------"
  78.     STRING003 = "       ░ ▓▀▓█████ ▓█▓▀▄████▀▓         "
  79.     STRING003 = "         ░  ▀▀█▓▀ ░  ▀▓█▀▀  ░         "
  80.     STRING003 = "--------- Coders  On  Dope! ----------"
  81.     PROC002()
  82.     PROC003()
  83.     PROC004()
  84.     PROC005()
  85.     PROC006()
  86.     If (INTEGER002 == 1) Then
  87.         Cls
  88.         PageOff
  89.         If (TSTRING007(4) <> "") Then
  90.             Tokenize TSTRING007(4)
  91.             If (Exist(GetToken())) Then
  92.                 Call TSTRING007(4)
  93.                 PROC007()
  94.             Endif
  95.         Endif
  96.         Chat
  97.     Else
  98.         PROC010("Reason: " + STRING005 + " ")
  99.         PROC011(TSTRING007(11))
  100.         Delay 30
  101.         If (TSTRING007(21) <> "") Then
  102.             If (Exist(TSTRING007(21))) Then
  103.                 DispFile TSTRING007(21), 1
  104.                 Goto LABEL001
  105.             Endif
  106.             If (Exist(PPEPath() + TSTRING007(21))) Then
  107.                 FreshLine
  108.                 DispFile PPEPath() + TSTRING007(21), 1
  109.             Endif
  110.         Endif
  111.         :LABEL001
  112.         KbdStuff "c"
  113.         End
  114.     Endif
  115.     PROC007()
  116.     End
  117.  
  118. ;------------------------------------------------------------------------------
  119.  
  120.     Procedure PROC003()
  121.  
  122.     :LABEL002
  123.     PROC011(TSTRING007(6))
  124.     AnsiPos S2I(TSTRING007(15), 10), S2I(TSTRING007(16), 10)
  125.     STRING005 = FUNCTION001("", 33, 32, 126, TSTRING007(5) + "·")
  126.     If (STRING005 == "") PROC007()
  127.     If (Len(STRING005) < S2I(TSTRING007(2), 10)) Then
  128.         PROC011(TSTRING007(7))
  129.         Goto LABEL002
  130.     Endif
  131.  
  132.     EndProc
  133.  
  134.  
  135. ;------------------------------------------------------------------------------
  136.  
  137.     Procedure PROC004()
  138.  
  139.     PROC011(TSTRING007(8))
  140.     AnsiPos S2I(TSTRING007(17), 10), S2I(TSTRING007(18), 10)
  141.     TSTRING007(1) = FUNCTION001(TSTRING007(1), 2, 48, 58, TSTRING007(5) + "·")
  142.     If (TSTRING007(1) == "") PROC007()
  143.  
  144.     EndProc
  145.  
  146.  
  147. ;------------------------------------------------------------------------------
  148.  
  149.     Procedure PROC007()
  150.  
  151.     String   TSTRING008(17)
  152.  
  153.     TSTRING008(0) = "       |       "
  154.     TSTRING008(1) = "      (y)      "
  155.     TSTRING008(2) = "     (by )     "
  156.     TSTRING008(3) = "    ( by P)    "
  157.     TSTRING008(4) = "   (d by PS)   "
  158.     TSTRING008(5) = "  (ed by PSY)  "
  159.     TSTRING008(6) = " (ded by PSYC) "
  160.     TSTRING008(7) = "(oded by PSYCH)"
  161.     TSTRING008(8) = "Coded by PSYCH0"
  162.     TSTRING008(9) = "    C(by )6    "
  163.     TSTRING008(10) = "    CO(y)96    "
  164.     TSTRING008(11) = "    COD|'96    "
  165.     TSTRING008(12) = "    COD '96    "
  166.     Cls
  167.     AnsiPos 32 + 15, 13
  168.     For INTEGER005 = 0 To 7
  169.         PROC001("@X08" + TSTRING008(INTEGER005))
  170.     Next
  171.     PROC001("@X08" + TSTRING008(8))
  172.     PROC001("@X07" + TSTRING008(8))
  173.     PROC001("@X0F" + TSTRING008(8))
  174.     Delay 10
  175.     For INTEGER005 = 7 To 3 Step -1
  176.         PROC001("@X08" + TSTRING008(INTEGER005))
  177.     Next
  178.     For INTEGER005 = 9 To 11
  179.         PROC001("@X08" + TSTRING008(INTEGER005))
  180.     Next
  181.     PROC001("@X08" + TSTRING008(12))
  182.     PROC001("@X07" + TSTRING008(12))
  183.     PROC001("@X0F" + TSTRING008(12))
  184.     Delay 2
  185.     PROC001("@X08" + TSTRING008(12))
  186.     DefColor
  187.     End
  188.  
  189.     EndProc
  190.  
  191.  
  192. ;------------------------------------------------------------------------------
  193.  
  194.     Procedure PROC002()
  195.  
  196.     If (!Exist(PPEPath() + "MUSIC\")) MkDir PPEPath() + "MUSIC"
  197.     PageOn
  198.     STRING002 = PPEPath() + "COD-JOKE" + LangExt()
  199.     INTEGER005 = 0
  200.     FOpen 1, PPEPath() + PPEName() + ".SNG", 0, 2
  201.     :LABEL003
  202.     FGet 1, STRING003
  203.     If (STRING003 <> "") Then
  204.         Tokenize STRING003
  205.         TSTRING004(INTEGER005, 0) = GetToken()
  206.         TSTRING004(INTEGER005, 1) = GetToken()
  207.         If (TSTRING004(INTEGER005, 0) == "C") TSTRING004(INTEGER005, 2) = GetToken()
  208.         FGet 1, TSTRING004(INTEGER005, 3)
  209.         TSTRING004(INTEGER005, 3) = Left(TSTRING004(INTEGER005, 3), 29)
  210.         Inc INTEGER005
  211.         Goto LABEL003
  212.     Endif
  213.     INTEGER003 = INTEGER005 - 1
  214.     FClose 1
  215.     INTEGER001 = 0
  216.     FOpen 1, PPEPath() + PPEName() + ".CFG", 0, 2
  217.     FGet 1, STRING003
  218.     :LABEL004
  219.     If (Ferr(1)) Goto LABEL005
  220.     If (Left(LTrim(STRING003, " "), 1) <> ";") Then
  221.         TSTRING007(INTEGER001) = STRING003
  222.         Inc INTEGER001
  223.     Endif
  224.     FGet 1, STRING003
  225.     Goto LABEL004
  226.     :LABEL005
  227.     FClose 1
  228.     TSTRING001(0) = "@X07"
  229.     TSTRING001(1) = TSTRING007(3)
  230.     FOpen 1, "PCBOARD.SYS", 0, 0
  231.     FSeek 1, 4, 0
  232.     FRead 1, STRING003, 2
  233.     FClose 1
  234.     If (STRING003 <> "-1") Then
  235.         PrintLn TSTRING007(12)
  236.         STRING003 = ""
  237.         InputStr "Enter the magic word: _", STRING003, 7, 30, Mask_AlNum(), 8192 + 0
  238.         If (STRING003 == "") Then
  239.             Print "@X0CAborted!"
  240.             PROC010("Tried to page you.")
  241.             Delay 20
  242.             PROC007()
  243.         Endif
  244.         If (Upper(STRING003) <> Upper(TSTRING007(0))) Then
  245.             INTEGER005 = Len(STRING003)
  246.             Backup INTEGER005
  247.             Print Space(INTEGER005)
  248.             Backup INTEGER005
  249.             Print "@X0CWrong!"
  250.             PROC010("Wrong emergency password given: " + STRING003)
  251.             Delay 20
  252.             PROC007()
  253.         Endif
  254.     Endif
  255.     Print "@CLS@@POFF@"
  256.     Color 7
  257.     DispFile PPEPath() + PPEName() + ".pcb", 1
  258.  
  259.     EndProc
  260.  
  261.  
  262. ;------------------------------------------------------------------------------
  263.  
  264.     Procedure PROC006()
  265.  
  266.     String   STRING009
  267.     String   STRING010
  268.     String   STRING011
  269.  
  270.     Select Case (TSTRING004(INTEGER004, 0))
  271.         Case "H"
  272.             STRING011 = PPEPath() + "MUSIC\" + TSTRING004(INTEGER004, 1) + ".HSC"
  273.             STRING009 = PPEPath() + "PS_HSC11.EXE"
  274.         Case "M"
  275.             STRING011 = PPEPath() + "MUSIC\" + TSTRING004(INTEGER004, 1) + ".MOD"
  276.             STRING009 = PPEPath() + "PS_MOD10.EXE"
  277.         Case "S"
  278.             STRING011 = PPEPath() + "MUSIC\" + TSTRING004(INTEGER004, 1) + ".S3M"
  279.             STRING009 = PPEPath() + "CH_S3M12.EXE"
  280.         Case "C"
  281.             STRING011 = TSTRING004(INTEGER004, 2) + " " + TSTRING004(INTEGER004, 1) + " " + Replace(TSTRING004(INTEGER004, 3), " ", "_")
  282.             STRING009 = PPEPath() + "CH_CD10.EXE"
  283.         Case "V"
  284.             STRING011 = PPEPath() + "MUSIC\" + TSTRING004(INTEGER004, 1) + ".VOC"
  285.             STRING009 = PPEPath() + "CH_VOC10.EXE"
  286.         Case Else
  287.             PROC010("H, M, C, S or V not defined correctly in .SNG file.")
  288.             Return
  289.     End Select
  290.     If ((TSTRING004(INTEGER004, 0) <> "C") && !Exist(STRING011)) Then
  291.         PROC010("Not found: " + STRING011)
  292.     Else
  293.         Cls
  294.         Print "@POFF@"
  295.         DispFile PPEPath() + "COD-JOKE.PCB", 1
  296.         PROC011("Reading " + STRING002)
  297.         PROC008()
  298.         OpText TSTRING007(1)
  299.         PROC011(TSTRING007(10))
  300.         STRING010 = TSTRING007(1) + " " + Replace(Mixed(U_Name()), " ", "_") + " " + Replace(STRING005, " ", "_") + " " + STRING011
  301.         SaveScrn
  302.         Shell 0, INTEGER002, STRING009, STRING010
  303.         RestScrn
  304.     Endif
  305.  
  306.     EndProc
  307.  
  308.  
  309. ;------------------------------------------------------------------------------
  310.  
  311.     Procedure PROC005()
  312.  
  313.     String   STRING012
  314.  
  315.     PROC011(TSTRING007(9))
  316.     For INTEGER005 = 0 To 12
  317.         PROC012(INTEGER005, 0)
  318.     Next
  319.     INTEGER004 = Random(INTEGER003)
  320.     PROC012(INTEGER004, 1)
  321.     :LABEL006
  322.     STRING012 = Upper(Inkey())
  323.     Select Case (STRING012)
  324.         Case "UP", "LEFT", "8", "A"
  325.             PROC012(INTEGER004, 0)
  326.             Dec INTEGER004
  327.             If (INTEGER004 < 0) INTEGER004 = INTEGER003
  328.             PROC012(INTEGER004, 1)
  329.         Case "DOWN", "RIGHT", "2", "Z", Chr(32)
  330.             PROC012(INTEGER004, 0)
  331.             Inc INTEGER004
  332.             If (INTEGER004 > INTEGER003) INTEGER004 = 0
  333.             PROC012(INTEGER004, 1)
  334.         Case Chr(13)
  335.             Goto LABEL007
  336.     End Select
  337.     Goto LABEL006
  338.     :LABEL007
  339.  
  340.     EndProc
  341.  
  342.  
  343. ;------------------------------------------------------------------------------
  344.  
  345.     Procedure PROC008()
  346.  
  347.     String   TSTRING013(11)
  348.     String   TSTRING014(1)
  349.     Integer  INTEGER006
  350.     Integer  INTEGER007
  351.     Integer  INTEGER008
  352.  
  353.     TSTRING013(0) = "@X0C█■∙·@X04··"
  354.     TSTRING013(1) = "@X0C█∙·@X04···"
  355.     TSTRING013(2) = "@X0C■█@X04····"
  356.     TSTRING013(3) = "@X0C∙■█@X04···"
  357.     TSTRING013(4) = "@X0C·∙■█@X04··"
  358.     TSTRING013(5) = "@X04·@X0C·∙■█@X04·"
  359.     TSTRING013(6) = "@X04··@X0C·∙■█"
  360.     TSTRING013(7) = "@X04···@X0C·∙█"
  361.     TSTRING013(8) = "@X04····@X0C█■"
  362.     TSTRING013(9) = "@X04···@X0C█■∙"
  363.     TSTRING013(10) = "@X04··@X0C█■∙·"
  364.     TSTRING013(11) = "@X04·@X0C█■∙·@X04·"
  365.     AnsiPos 7, 7
  366.     Print "@X08[@X07 PSYCH0@X08 is running the WarpSearchMode...        ]"
  367.     Backup 2
  368.     If (Exist(STRING002)) Goto LABEL008
  369.     PROC011("Error in Joke file")
  370.     PROC010("Not found: " + STRING002 + " .")
  371.     Return
  372.     :LABEL008
  373.     INTEGER008 = Random(ReadLine(STRING002, 1))
  374.     TSTRING014(0) = "[" + I2S(INTEGER008, 10) + "]"
  375.     TSTRING014(1) = "[" + I2S(INTEGER008 + 1, 10) + "]"
  376.     FOpen 3, STRING002, 0, 2
  377.     INTEGER006 = 0
  378.     :LABEL009
  379.     FGet 3, STRING003
  380.     Inc INTEGER006
  381.     If (INTEGER006 == 10) Then
  382.         INTEGER006 = 1
  383.         Inc INTEGER007
  384.         If (INTEGER007 == 12) INTEGER007 = 0
  385.         Backup 6
  386.         PROC013(TSTRING013(INTEGER007))
  387.     Endif
  388.     If (Left(STRING003, 1) == "[") Then
  389.         Select Case (STRING003)
  390.             Case TSTRING014(0)
  391.                 AnsiPos 7, 7
  392.                 Print "                                                   "
  393.                 FGet 3, TSTRING006(0)
  394.                 PROC009(0)
  395.                 For INTEGER005 = 1 To 13
  396.                     FGet 3, TSTRING006(INTEGER005)
  397.                     If ((TSTRING006(INTEGER005) == TSTRING014(1)) || (TSTRING006(INTEGER005) == "[END]")) Break
  398.                     PROC009(INTEGER005)
  399.                 Next
  400.             Case "[END]"
  401.                 PROC011("Error in Joke file")
  402.             Case Else
  403.                 Goto LABEL009
  404.         End Select
  405.     Else
  406.         Goto LABEL009
  407.     Endif
  408.     FClose 3
  409.  
  410.     EndProc
  411.  
  412.  
  413. ;------------------------------------------------------------------------------
  414.  
  415.     Procedure PROC013(String STRING015)
  416.  
  417.     Print STRING015, "@X70█@X07"
  418.     Backup 1
  419.  
  420.     EndProc
  421.  
  422.  
  423. ;------------------------------------------------------------------------------
  424.  
  425.     Procedure PROC012(Integer INTEGER009, Boolean BOOLEAN001)
  426.  
  427.     AnsiPos S2I(TSTRING007(13), 10), S2I(TSTRING007(14), 10) + INTEGER009
  428.     Print TSTRING001(BOOLEAN001)
  429.     Select Case (TSTRING004(INTEGER009, 0))
  430.         Case "H"
  431.             PROC013(Right(INTEGER009 + 1, 3) + " " + Left(TSTRING004(INTEGER009, 1), 8) + ".HSC  " + TSTRING004(INTEGER009, 3))
  432.         Case "M"
  433.             PROC013(Right(INTEGER009 + 1, 3) + " " + Left(TSTRING004(INTEGER009, 1), 8) + ".MOD  " + TSTRING004(INTEGER009, 3))
  434.         Case "S"
  435.             PROC013(Right(INTEGER009 + 1, 3) + " " + Left(TSTRING004(INTEGER009, 1), 8) + ".S3M  " + TSTRING004(INTEGER009, 3))
  436.         Case "C"
  437.             PROC013(Right(INTEGER009 + 1, 3) + " Audio-CD (" + Left(TSTRING004(INTEGER009, 1), 1) + ")  " + TSTRING004(INTEGER009, 3))
  438.         Case "V"
  439.             PROC013(Right(INTEGER009 + 1, 3) + " " + Left(TSTRING004(INTEGER009, 1), 8) + ".VOC  " + TSTRING004(INTEGER009, 3))
  440.         Case ""
  441.             Print Space(47)
  442.         Case Else
  443.             PROC010("H, M, C, S or V not defined correctly in .SNG file.")
  444.     End Select
  445.  
  446.     EndProc
  447.  
  448.  
  449. ;------------------------------------------------------------------------------
  450.  
  451.     Procedure PROC011(String STRING016)
  452.  
  453.     AnsiPos S2I(TSTRING007(19), 10), S2I(TSTRING007(20), 10)
  454.     Print TSTRING007(5), Replace(Left(STRING016, 41), " ", "·")
  455.  
  456.     EndProc
  457.  
  458.  
  459. ;------------------------------------------------------------------------------
  460.  
  461.     Procedure PROC010(String STRING017)
  462.  
  463.     Log "Rave Pager [" + STRING017 + "]", 1
  464.  
  465.     EndProc
  466.  
  467.  
  468. ;------------------------------------------------------------------------------
  469.  
  470.     Procedure PROC009(Integer INTEGER010)
  471.  
  472.     AnsiPos 7, 8 + INTEGER010
  473.     Print "@X08"
  474.     If (INTEGER010 == 0) Print "@X07"
  475.     Print TSTRING006(INTEGER010)
  476.  
  477.     EndProc
  478.  
  479.  
  480. ;------------------------------------------------------------------------------
  481.  
  482.     Function FUNCTION001(String STRING018, Integer INTEGER011, Integer INTEGER012, Integer INTEGER013, String STRING019) String
  483.  
  484.     Integer  INTEGER014
  485.     Integer  INTEGER015
  486.     Integer  INTEGER016
  487.     String   STRING021
  488.     String   STRING022
  489.     String   STRING023
  490.     String   STRING024
  491.  
  492.     INTEGER015 = GetX()
  493.     INTEGER016 = GetY()
  494.     STRING022 = StripAtx(STRING019)
  495.     STRING023 = STRING019
  496.     For INTEGER014 = 2 To INTEGER011
  497.         STRING023 = STRING023 + STRING022
  498.     Next
  499.     Print TSTRING007(5), STRING018
  500.     :LABEL010
  501.     STRING021 = Inkey()
  502.     If ((((((((((STRING021 == "DEL") || (STRING021 == "HOME")) || (STRING021 == "END")) || (STRING021 == "RIGHT")) || (STRING021 == "LEFT")) || (STRING021 == "UP")) || (STRING021 == "DOWN")) || (STRING021 == "INS")) || (STRING021 == "PGUP")) || (STRING021 == "PGDN")) Goto LABEL010
  503.     Select Case (Asc(STRING021))
  504.         Case 27
  505.             If (Len(STRING018) == 0) Goto LABEL011
  506.             AnsiPos INTEGER015, INTEGER016
  507.             Print STRING023
  508.             Backup INTEGER011
  509.             STRING018 = ""
  510.         Case 13
  511.             Goto LABEL011
  512.         Case 8
  513.             If (Mid(STRING018, Len(STRING018) - 4, 2) == "@X") STRING018 = Left(STRING018, Len(STRING018) - 4)
  514.             If (Len(STRING018) == 0) Goto LABEL010
  515.             STRING018 = Left(STRING018, Len(STRING018) - 1)
  516.             Backup 1
  517.             Print STRING019
  518.             Backup 1
  519.         Case Else
  520.             If (((Asc(STRING021) < INTEGER012) || (Asc(STRING021) > INTEGER013)) || (Len(StripAtx(STRING018)) == INTEGER011)) Goto LABEL010
  521.             AnsiPos INTEGER015 + Len(StripAtx(STRING018)), INTEGER016
  522.             Print STRING021
  523.             STRING018 = STRING018 + STRING021
  524.             AnsiPos INTEGER015 + Len(StripAtx(STRING018)), INTEGER016
  525.     End Select
  526.     Goto LABEL010
  527.     :LABEL011
  528.     FUNCTION001 = STRING018
  529.  
  530.     EndFunc
  531.  
  532.  
  533. ;------------------------------------------------------------------------------
  534.  
  535.     Procedure PROC001(String STRING024)
  536.  
  537.     Backup 15
  538.     PROC013(STRING024)
  539.     Delay 1
  540.  
  541.     EndProc
  542.  
  543.  
  544. ;------------------------------------------------------------------------------
  545. ;
  546. ; Usage report (before postprocessing)
  547. ;
  548. ; ■ Statements used :
  549. ;
  550. ;    3       End
  551. ;    3       Cls
  552. ;    1       Color 
  553. ;    84      Goto 
  554. ;    100     Let 
  555. ;    18      Print 
  556. ;    1       PrintLn 
  557. ;    56      If 
  558. ;    4       DispFile 
  559. ;    4       FOpen 
  560. ;    4       FClose 
  561. ;    7       FGet 
  562. ;    1       DefColor
  563. ;    1       Log 
  564. ;    1       InputStr 
  565. ;    2       Return
  566. ;    6       Delay 
  567. ;    5       Inc 
  568. ;    1       Dec 
  569. ;    2       Tokenize 
  570. ;    1       Shell 
  571. ;    1       KbdStuff 
  572. ;    1       Call 
  573. ;    1       OpText 
  574. ;    11      AnsiPos 
  575. ;    9       Backup 
  576. ;    1       FreshLine
  577. ;    1       SaveScrn
  578. ;    1       RestScrn
  579. ;    1       Chat
  580. ;    1       PageOn
  581. ;    1       PageOff
  582. ;    1       FSeek 
  583. ;    1       FRead 
  584. ;    13      EndProc
  585. ;    1       EndFunc
  586. ;    1       MkDir 
  587. ;
  588. ;
  589. ; ■ Functions used :
  590. ;
  591. ;    3       -
  592. ;    105     +
  593. ;    4       -
  594. ;    51      ==
  595. ;    7       <>
  596. ;    9       <
  597. ;    6       <=
  598. ;    2       >
  599. ;    12      >=
  600. ;    44      !
  601. ;    13      &&
  602. ;    25      ||
  603. ;    10      Len(
  604. ;    3       Upper()
  605. ;    1       Mid()
  606. ;    11      Left()
  607. ;    5       Right()
  608. ;    2       Space()
  609. ;    1       Ferr()
  610. ;    2       Chr()
  611. ;    5       Asc()
  612. ;    1       LTrim()
  613. ;    2       Random()
  614. ;    1       U_Name()
  615. ;    4       StripAtx()
  616. ;    4       Replace()
  617. ;    2       Inkey()
  618. ;    1       Mask_AlNum()
  619. ;    18      PPEPath()
  620. ;    1       ReadLine()
  621. ;    4       GetToken()
  622. ;    6       Exist()
  623. ;    2       I2S()
  624. ;    9       S2I()
  625. ;    1       LangExt()
  626. ;    1       GetX()
  627. ;    1       GetY()
  628. ;    3       PPEName()
  629. ;    1       Mixed()
  630. ;
  631. ;------------------------------------------------------------------------------
  632. ;
  633. ; Analysis flags : SC
  634. ;
  635. ; S - Shell to DOS ■ 5
  636. ;     This may be normal if the PPE need to execute an external command,
  637. ;     but may be actually anything... nasty (formating HD, rebooting,...)
  638. ;     or usefull (sorting, maintenance,...). Check!
  639. ;     ■ Search for : SHELL
  640. ;
  641. ; C - Call child PPE ■ 3
  642. ;     This is usually normal, but may be a tricky way to launch some
  643. ;     sysop-only commands.
  644. ;     ■ Search for : CALL
  645. ;
  646. ;------------------------------------------------------------------------------
  647. ;
  648. ; Postprocessing report
  649. ;
  650. ;    6       For/Next
  651. ;    0       While/EndWhile
  652. ;    15      If/Then or If/Then/Else
  653. ;    5       Select Case
  654. ;
  655. ;------------------------------------------------------------------------------
  656. ;                 AEGiS Corp - Break the routines, code against the machines!
  657. ;------------------------------------------------------------------------------
  658.